home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Scanner / ScanTrax / main / rexxtest < prev    next >
Encoding:
Text File  |  1998-06-24  |  2.4 KB  |  113 lines
  1. /*
  2.     This Arexxscript gives an example for using ARexx with
  3.     ScanTrax © by Klaus Krause 1997
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. ADDRESS "SCANTRAX"
  9.  
  10. say "Short AmigaRexx Demonstration:"
  11.  
  12. say
  13. say "Look at the default/current ARexx-picture-setup:"
  14. GET_INTENSITY
  15. say " Intensity   = " RESULT "%"
  16. GET_CONTRAST
  17. say " Contrast    = " RESULT "%"
  18. GET_COLOR_RED
  19. say " Color Red   = " RESULT "%"
  20. GET_COLOR_GREEN
  21. say " Color Green = " RESULT "%"
  22. GET_COLOR_BLUE
  23. say " Color Blue  = " RESULT "%"
  24. GET_SHARPEN
  25. say " Sharpen     = " RESULT "%"
  26. GET_GAMMA
  27. say " Gamma       = " RESULT
  28. say
  29. say "Load the program-picture-setup into ARexx-picture-setup"
  30. CUSTOM_PRESET
  31. say
  32. say "Now we get the following:"
  33. GET_INTENSITY
  34. say " Intensity   = " RESULT "%"
  35. GET_CONTRAST
  36. say " Contrast    = " RESULT "%"
  37. GET_COLOR_RED
  38. say " Color Red   = " RESULT "%"
  39. GET_COLOR_GREEN
  40. say " Color Green = " RESULT "%"
  41. GET_COLOR_BLUE
  42. say " Color Blue  = " RESULT "%"
  43. GET_SHARPEN
  44. say " Sharpen     = " RESULT "%"
  45. GET_GAMMA
  46. say " Gamma       = " RESULT
  47. say
  48. say
  49. say "Now we modifiy the ARexx-picture-setup"
  50. say " Adjust intensity to 0%"
  51. SET_INTENSITY '0'
  52. say " Adjust contrast  to 14%"
  53. SET_CONTRAST '14'
  54. say " Adjust sharpen   to 50%"
  55. SET_SHARPEN '50'
  56. say " Adjust gamma     to 2.20"
  57. SET_GAMMA '2.2'
  58. say
  59. say "Now we set the window parameters:"
  60. say " Adjust a 100% Scale in xy direction"
  61. SET_SCALE 100 100
  62. say " Adjust ScanResolution to 75 dpi"
  63. SET_RESOLUTION 75 75
  64. say " Adjust the graphicsmode to 24Bit Color"
  65. SET_GFXMODE 6
  66. say " Adjust autosuffix to ON"
  67. SET_AUTOSUFFIX 1
  68. say " Adjust centimeters as input unit"
  69. SET_MEASUREUNIT 0
  70. say " Adjust the scanwindow with xy-offset=5cm and xysize=10cm"
  71. SET_WINDOW 5 5 10 10
  72. say
  73. say
  74. say "Hide the Display"
  75. DISPLAY_HIDE
  76. say
  77. say
  78. say "Scanning to tempfile...."
  79. SCAN
  80. say
  81. say
  82. say "Writing a PiNG     picture to ram:Testpicture..."
  83. SAVE_PICTURE 0 'RAM:Testpicture'
  84. say
  85. say "Set JPG Quality to 45"
  86. SET_JPGQUALITY 45
  87. say "Writing a JPEG     picture to ram:Testpicture..."
  88. SAVE_PICTURE 2 'RAM:Testpicture'
  89. say
  90. say "Writing a TARGA    picture to ram:Testpicture..."
  91. SAVE_PICTURE 1 'RAM:Testpicture'
  92. say
  93. say "Writing a IFF-DEEP picture to ram:Testpicture..."
  94. SAVE_PICTURE 3 'RAM:Testpicture'
  95. say
  96. say
  97. say "Switch the Compression to ON"
  98. SET_COMPRESSION 1
  99. say "Writing a IFF-ILBM picture to ram:Testpicture..."
  100. SAVE_PICTURE 4 'RAM:Testpicture'
  101. say
  102. say
  103. say "Show the Display"
  104. DISPLAY_SHOW
  105. say "Quit ScanTrax with 'QUIT'"
  106. say
  107. say "Looking into the RamDisk:"
  108. ADDRESS COMMAND "C:list ram:Testpicture#?"
  109. say
  110.  
  111.  
  112. EXIT
  113.